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I .  INTRODUCTION 


Due  to  increasing  use  of  computer  models  and  data  manipulation  by 
scientists,  there  has  arisen  a  need  for  a  plotting  package  which  can 
show  data  curves  on  a  computer  terminal  CRT,  yet  does  not  require  the 
casual  user  to  develop  his  own  plotting  software.  Such  a  program  is 
available  for  the  Tektronix  CRT's  on  the  BRL  CDC  system. 


II.  DESCRIPTION 


WNDWBX  is  a  Fortran  subroutine  which  uses  the  Tektronix  PLOTlOl 
software  to  generate  point-to-point  plotting  of  data  vectors.  Axes  are 
initially  scaled  and  labeled  with  parameters  returned  from  the  BRL 
FIXSCA  subroutine. 2 

The  user  must  supply  data  from  some  generating  program;  then  through 
a  single  Fortran  calling  statement  he  can  access  the  plotting  routines. 
The  required  call  is: 


CALL  WNDWBX  (X,  Y,  M,  N,  NPTS), 

where  X  =  horizontal  axis  data  vector, 

Y  =  vertical  axis  data  vector, 

M  =  maximum  number  of  data  points  to  be  plotted, 

N  =  number  of  curves  to  be  shown  on  the  plotted  surface  (1  to  3), 
NPTS  =  vector  of  size  (3)  containing  respective  number  of  data  points 
in  each  curve.  (M  >_  Total  of  NPTS.) 

The  data-generating  main  program  must  define  files  PLB  and  KBI  in 
its  program  statement  (see  test  program  listing  in  the  Appendix) .  WNDWBX 
requires  that  the  main  program  be  supplied  in  relocatable  form;  this  may 
be  accomplished  in  one  of  two  ways: 

A.  (1)  Attach  a  source-code  file. 

(2)  Compile  the  source  code  into  LGO. 

(3}  Attach  the  WNDWBX  procedure. 

(4)  Begin  the  WNDWBX  procedure. 

As  an  example,  suppose  file  FORT  (ID  =  FRED  and  CY  =  1)  contains  the 
source  code  in  the  Appendix.  Then, 


1TEKTRONIX  Plotting  (PLOTIO)  Package,  BRL  SPB-8-78,  14  July  1978. 

2 

Monte  W.  Coleman  and  John  V.  Lanahan,  "BRLESC  Fortran  Plotting  Subrou¬ 
tines",  ARDC  Technical  Report  No.  6,  p.  36,  July  1970. 
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Step  1:  ATTACH,  FORT,  ID  =  FRED,  CY  =  1 . 

Step  2:  FTN  (I  =  FORT,  L  =  0,  B  =  LGO)'. 

Step  3:  ATTACH,  WNDWBX. 

Step  4:  BEGIN,  RUN,  WNDWBX,  LF  =  LGO. 

or, 

B.  (1)  Attach  the  WNDWBX  procedure. 

(2)  Begin  the  procedure  and  provide  to  it  a  pre-compiled  and 
catalogued  main  program. 

For  example,  suppose  after  Step  2  of  the  previous  case  that  the 
user  decided  to  catalog  his  compiled  code  into  file  FORT,  ID  =  FRED,  CY 
3  2.  (The  command  would  have  been:  'CATALOG,  LGO,  FORT,  ID  =  FRED*  CY 
=  2'.)  Then  a  'RETURN,  LGO'  would  free  the  file.  Next, 

Step  1:  ATTACH,  WNDWBX. 

Step  2:  BEGIN,  RUN,  WNDWBX,  PF  =  FORT,  ID  =  FRED,  CY  =  2. 

Both  methods  use  a  Cyber  Control  Language  procedure  to  connect 
I/O  files,  attach  libraries,  load  and  execute  the  program,  and  return 
local  files  after  execution.  (Method  A  uses  a  copy  of  LGO  to  generate 
an  executable  program.) 

The  first  time  WNDWBX  is  called,  it  polls  the  user  for  a  data  trans¬ 
mission  rate  -  either  30,  120,  or  960  characters/second  (corresponding 
to  300,  1200,  and  9600  baud,  respectively).  The  internal  calls  to  the 
PLOT10  setup  routines  assume  a  screen  size  of  1024  by  780  addressable 
points;  buffer  size  is  arbitrarily  set  to  3.  These  parameters  are 
reasonable  in  most  cases  and  the  user  cannot  change  them. 


III.  SAMPLE  CASE 

A  simple  sine,  cosine,  and  sine  +  cosine  data-generating  program 
is  available  for  test  use  simply  by  attaching  the  WNDWBX  procedure  and 
executing  the  command:  'BEGIN,  TEST,  WNDWBX'. 

The  sample  case  first  asks  for  an  input  from  the  user  in  order  to 
start  the  data  generation.  Then  a  list  of  options  will  appear  as  in 
Figure  1.  If  option  1  is  chosen  (enter  the  number  "1"  through  the  key¬ 
board),  an  unlabeled  set  of  curves  will  be  shown  (Figure  2). 

When  the  curves  are  shown,  there  is  no  screen  prompt  to  tell  the 
user  what  to  do  next.  Entering  any  number  from  the  keyboard  will  cause 
the  graph  to  disappear  and  a  list  of  options  will  appear  (Figure  3) . 

Axis  and  curve  titles  may  be  entered  through  options  5,  6,  7,  and  8 
(Figure  4).  Then  option  1  will  show  the  plot  with  the  new  titles  (Figure 
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CURVE  GENERATING  ROUTINE 


OPTIONS  * 


0  -  STOP 

1  =  PLOT 

2  «  CHANGE  DATA 


OPTION?  >1 


Figure  1.  Option  Table  in  Test  Plot  Routine 
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Figure  2.  First  Plot  Using  Default  Values  From  Test  Routine 
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Figure  3.  Option  Table  for  Figure 
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Figure  4.  Option  5,6,7,  and  8  Exercised  From  Figure 
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Figure  5.  Test  Curves  with  Titles 


After  entering  another  number  to  clear  the  screen,  and  choosing 
option  0  to  return  to  the  main  program,  the  test  case  will  allow  the 
user  to  change  the  curves  by  entering  different  coefficients  for  the 
equations  (Figure  6).  The  new  data  is  plotted  in  Figure  7,  showing  the 
scientific  notation  style  of  axis  labeling  -  three  significant  figures 
along  the  vertical  axis  and  an  exponent  near  the  upper  left  hand  corner. 
WNDWBX  uses  this  style  when  the  axis  labels  need  to  show  more  than  three 
digits.  The  horizontal  axis,  too,  has  this  option  and  the  exponent  is 
printed  just  below  the  lower  left  hand  corner  of  the  box. 

Options  2  and  3  from  the  option  table  allow  the  user  to  choose  a 
"window"  from  the  original  plot  by  setting  new  axis  maximums  and  mini- 
mums.  Figure  8  shows  the  option  table  and  a  new  set  of  axis  limits. 

The  plot  option  at  this  time  gives  the  graph  shown  in  Figure  9.  The 
intersection  of  the  curves  is  now  visible  in  much  greater  detail. 

Option  4  returns  the  axis  limits  to  show  the  whole  curve  at  the 
time  of  the  last  WNDWBX  call  (Figure  10). 

When  using  this  set  of  plotting  routines,  an  added  feature  is 
available  to  the  programmer  -  a  Fortran-callable  screen  erasure.  A 
simple  CALL  ERS  at  the  appropriate  step  in  the  generating  routine  will 
enable  the  user  to  clear  the  Tektronix  screen.  Comparing  the  interactive 
operation  of  the  test  plot  program  to  its  Fortran  listing  in  the  Appendix 
will  show  the  value  of  this  subroutine. 


IV.  SUMMARY 

The  WNDWBX  routine  is  a  powerful  tool  in  modeling  applications. 

It  can  plot  one  to  three  data  curves  without  prior  knowledge  of  the 
data  limits.  WNDWBX  allows  the  scientist  to  inspect  the  data  closely 
by  using  the  "zoom"  feature  to  select  and  enlarge  any  portion  of  the 
plotted  data.  The  routines  are  available  and  easily  used  by  means  of  a 
Cyber  Control  Language  procedure  which  enters  much  of  the  command  run- 
stream  for  the  user. 
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Figure  6.  Changing  Curve  Parameters  in  Generating  Routine 
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Figure  7.  New  Curves  using  Parameters  from  Figure 
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Figure  8.  Horizontal  and  Vertical  Axis  Parameters  Changed  to  Provide  "Zoom"  Feature 
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Figure  9.  "Zoom"  Window  Using  Axis  Parameters  from  Figure 
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Figure  10.  Option  4  Exercised  -  Return  to  Original  Axis  Parameters  (Same  as  Figure  7) 
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APPENDIX 


TEST  PROGRAM  LISTING 


PROGRAM  OMF  73/173  OPTM  ROUNO  =  —  / 


FTN  4.B*49R  0S/12/B0  10.01. 


PROGRAM  OMF ( 1NPUT*0U1PUT»TAPF9=1NPUT*PLH»KB1 1 
0  IHFN510N  X  (1000) *Y (1000)  »NPT5<3>  »CH3)  *5(3) 
OATA  NPT5.C1/ 30 0*300*300*3*1 .0/ 

DATA  5/9H  51N  * 9H  C05  *9H51N  ♦  C05/ 

CALL  FRS 
PRINT  ••*  * 

PRINT  •*»  TF5T  PLOT  PROGRAM* 

PRINT  •♦*  * 

pp|NT  *.*  ENTFR  NUMBER  TO  BEG1N>* 

RE AO  (9*10)  1 
10  FOPMAT (11) 

N*3 

GO  TO  45 
20  CALL  EP5 
PRINT  •*»  » 

PRINT  *t '  CURVE  GENERATING  ROUTINE* 


PRINT 

•**  * 

PRINT 

*.*  OPTIONS!  0 

=  5T0P* 

PRINT 

•  *»  1 

=  PLOT* 

PRINT 

•»«  2 

=  CHANGE  OATA* 

PP 1  NT 

«  « 

PRINT 

•*♦  OPTION?  >* 

READ 

•« 10PT 

IF  UOPT.FO. 01  GO  TO  99 

IF  UOPT.FO.il  CALL  WNOWBX 1 X* Y* 1 000 »N»NPT51 
IF  UOPT.FO. 21  GO  TO  30 
IF  UOPT.LT.3.ANO.IOPT.GT.O)  GO  TO  20 

PRINT  **♦  ERROR....  OPTION  UNACCEPTABLE..  PLEA5E  RF -FNTEP>  * 
GO  TO  15 

30  PRINT  *»*  CUPVE  l  e  C 1  •  SlN(X)« 

PP1NT  •*»  CUPVE  2  =  C2  •  C05<X1« 

PPtNT  **»  CUPVE  3  =  C3  •  (  Cl  •  51NCX1  ♦  C2  *  C0S(X1  1* 

PRINT  •*»  * 

PRINT  •**  NUMBER  OF  CURVES  TO  PLOT?  >* 

RE AO  *  * N 
PP1NT  •**  * 

PRINT  ***  MULTIPLIERS!  * 

DO  ?1  1*1 *N 
PRINT  40*5(11 

40  FORMAT ( /*  COEFFICIENT  FOR  »*A9*»  CURVE?  >*) 

REAO  **P 
C  1  (1 1  *p 

21  CONTINUE 

45  00  22  1=1*300 

XX=FLO AT (1 -1 1 *.02 

X ( 1 1  =  XX 

X  <300*1 1  =  XX 

XtfOOM)  8XX 

Y(1 1=C1 U 1*S1N(XX1 

Y  ( 300  ♦  1 1 *C 1  ( 2 1 *C05 ( XX 1 

Y (600*1 )*C1 (3)* (Y(l>*t (300*1) ) 

22  CONTINUE 
GO  TO  20 

9R  5T0P 
ENO 


000100 
000110 
000120 
000130 
000140 
000150 
000160 
000170 
000 1  BO 
0001O0 
000200 
000210 
000220 
000230 
000240 
000250 
000260 
000270 
0002B0 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
0003B0 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
0004B0 
000490 
‘  000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
0005B0 
000590 
000600 
000610 
000620 
000630 
000640 
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USER  EVALUATION  OF  REPORT 


Please  take  a  few  minutes  to  answer  the  questions  below;  tear  out 
this  sheet  and  return  it  to  Director,  US  Army  Ballistic  Research 
Laboratory,  ARRADCOM,  ATTN:  DRDAR-TSB,  Aberdeen  Proving  Ground, 
Maryland  21005.  Your  comments  will  provide  us  with  information 
for  improving  future  reports. 

1 .  BRL  Report  Number _ 

2.  Does  this  report  satisfy  a  need?  (Comment  on  purpose,  related 
project,  or  other  area  of  interest  for  which  report  will  be  used.) 


3.  How,  specifically,  is  the  report  being  used?  (Information 
source,  design  data  or  procedure,  management  procedure,  source  of 
ideas,  etc.) 


4.  Has  the  information  in  this  report  led  to  any  quantitative 
savings  as  far  as  man-hours/contract  dollars  saved,  operating  costs 
avoided,  efficiencies  achieved,  etc.?  If  so,  please  elaborate. 


5.  General  Comments  (Indicate  what  you  think  should  be  changed  to 
make  this  report  and  future  reports  of  this  type  more  responsive 
to  your  needs,  more  usable,  improve  readability,  etc.) 


6.  If  you  would  like  to  be  contacted  by  the  personnel  who  prepared 
this  report  to  raise  specific  questions  or  discuss  the  topic, 
please  fill  in  the  following  information. 

Name: 


Telephone  Number: 
Organization  Address: 


